******************************************************************************
 OPAx863A model generated on December 22nd, 2022
 Modified by George Barbehenn on February 5th, 2025
.SUBCKT OPAx863A INplus INminus VCC VEE OUT
*********************************Bondwires***********************************
XbondwireVCC	VCC VCC_B bondwire_OPAx863A PARAMS:Resistance=2m Inductance=10nH
C_PincapVcc		VCC_B 0 5pF
XbondwireVee	VEE VEE_B bondwire_OPAx863A PARAMS:Resistance=2m Inductance=10nH
C_PincapVee		VEE_B 0 5pF
XbondwireINP	INplus ESDp bondwire_OPAx863A PARAMS:Resistance=2m Inductance=10nH
C_INp			ESDp MID 0.877pF
R_INp			ESDp MID R_NOISELESS 650.9MEG
XbondwireINN	INminus ESDn bondwire_OPAx863A PARAMS:Resistance=2m Inductance=10nH
C_INn			MID ESDn 0.877pF
R_INn			MID ESDn R_NOISELESS 650.9MEG
XbondwireOUT	OUT bondpad bondwire_OPAx863A PARAMS:Resistance=2m Inductance=10nH
C_PincapOut		bondpad Mid 5pF
CDIFF			ESDn ESDp 0.3pF
RDIFF			ESDn ESDp R_NOISELESS 206.9k
*****************************Midpoint generation******************************
E_divider		RawAverage 0 Value={(V(VCC_B) + V(VEE_B))/2}
R_average		RawAverage Average R_NOISELESS 10k
C_average		Average 0 1uF
E_MidBuffer		MID 0 Average 0 1
XIq				VCC_B VEE_B IQ_OPAx863A
XIVCC			VIMON MID VCC_B MID ISup_OPAx863A PARAMS:GAIN=1
XIVEE			MID VIMON MID VEE_B ISup_OPAx863A PARAMS:GAIN=1
******************************Noise modeling**********************************
XVNOISE			ESDp N1549078 NOISE_OUT MID VNOISE_OPAx863A PARAMS:FLW=0.1 GLF=0.0224647 RNV=31.4026
XINOISEP		NOISE_OUT MID INOISE_P_OPAx863A PARAMS:FLWF=0.1 NLFF=24.67E3 NVRF=286.6
XINOISEN		ESDn MID INOISE_N_OPAx863A PARAMS:FLWF=0.1 NLFF=24.67E3 NVRF=286.6
*****************************ESD protection***********************************
XESD_IN			ESDn ESDp VCC_B VEE_B ESD_IN_OPAx863A
XESD_BB			ESDn ESDp ESD_BB_OPAx863A
XESD_OUT		bondpad VCC_B VEE_B ESD_OUT_OPAx863A
**********************************PSRR****************************************
***********VCC***********
G_G11			N2002402 MID VCC_B MID -1.687E-3
C_C1A10			N2002402 N2002412  3.003E-11
R_R11			N2002402 MID R_NOISELESS 1
R_R1A10			N2002402 N2002412 R_NOISELESS 1E8
R_R2A10			N2002412 MID R_NOISELESS 1.767E2
G_G10			N2002382 MID N2002412 MID -2.97E2
R_R200			N2002382 MID R_NOISELESS 1
R_R1A9			N2002382 N709248 R_NOISELESS 1E8
C_C1A9			N2002382 N709248  1.576E-14
R_R2A9			N709248 MID R_NOISELESS 3.378E5
***********VEE***********
G_G89			N1999301 MID VEE_B MID -4.257E1
R_R199			N1999301 MID R_NOISELESS 1
R_R1A14			N1999301 N706294 R_NOISELESS 1E8
C_C1A8			N1999301 N706294  1.447E-8
R_R2A8			N706294 MID R_NOISELESS 1.1E-2
********Combined********
GPSR			N25816 CMRR_2 N709248 N706294 -1E-3
RPSR			N25816 CMRR_2 R_NOISELESS 1E3
*********************************INPUT to Miller********************************
Gadjust			N1995214 MID ESDP MID -2.626E-8
R_R198			N1995214 MID R_NOISELESS 1
R_R1A1			N1995214 N1995224 R_NOISELESS 1E8
C_C1A1			N1995214 N1995224  1.592E-8
R_R2A1			N1995224 MID R_NOISELESS 1.001E5
G_G3			N1995184 MID N1995224 MID -6.667E7
R_R3			N1995184 MID R_NOISELESS 1
R_R1A2			N1995184 N1475322 R_NOISELESS 1E8
C_C1A2			N1995184 N1475322  1.061E-11
R_R2A2			N1475322 MID R_NOISELESS 1.5
*CMRR_2 is connected to GPSR/RPSR
G_G2			CMRR_2 N10561 N1475322 MID -1E-3
R_R8			CMRR_2 N10561 R_NOISELESS 1E3
XVOS			N10561 NOISE_OUT VOS_DRIFT_OPAx863A
I_I_B			MID NOISE_OUT DC 300E-9
X_U3			MID NOISE_OUT VCC_B VEE_B IB_VS_VCM_OPAx863A
X_U4			MID ESDN VCC VEE IB_VS_VCM_OPAx863A
XIOS			ESDn MID IOS_OPAx863A
XVCM_MAX		N30136 VCC_B VCM_P_OPAx863A
XVCM_MIN		N28602 VEE_B VCM_N_OPAx863A 
X_VCM_CLAMP		N25816 MID N30913 MID N30136 N28602 VCM_CLAMP_OPAx863A 
R_R27			N30913 MID R_NOISELESS 1
C_C7			N30913 MID 1fF
XDIFFPAIR		N30913 ESDN MID 43 LIM1_OPAx863A PARAMS:PairCurrent=1e-4 Vos=130mV
R_R60			MID 43 R_NOISELESS 1MEG
XVIamp			43 MID Miller MID LIM2_OPAx863A PARAMS:GAIN=37.01776E-3 IPOS=1.2 INEG=-1.2
Rmiller			MID Miller R_NOISELESS 1MEG
Cmiller			MID Miller 11.3nF
******************Output voltage drop and short circuit detect******************
XISCP			N50645 MID VSC_N_OPAx863A
XISCN			N48550 MID VSC_P_OPAx863A
XCL_AMP			N50645 N48550 VIMON MID N45856 N45986 CLAMP_AMP_OPAx863A PARAMS:Gain=1
RISCP			N45856 MID R_NOISELESS 1
CISCP			N45856 MID 1E-15
RISCN			N45986 MID R_NOISELESS 1
CISCN			N45986 MID 1E-15
XCLAWp			VIMON MID N45856 VCC_CLIP VCC_B CLAWP_OPAx863A PARAMS:DC=-0.1208
XCLAWn			MID VIMON N45986 VEE_B VEE_CLIP CLAWN_OPAx863A PARAMS:DC=0.1175
*******************************Miller to Output*********************************
G_G12			N1897556 MID Miller MID -1E-3
R_R191			N1897556 MID R_NOISELESS 1E3
C_C43			MID N1897556  4.45E-13
G_G85			N1901998 MID N1897556 MID -1E-3
R_R192			MID N1901998 R_NOISELESS 1E3
C_C44			MID N1901998  4.45E-13
G_G86			N1902704 MID N1901998 MID -1E-3
R_R193			N1902704 MID R_NOISELESS 1E3
C_C45			MID N1902704  4.45E-13    
G_G87			N886969 MID N1902704 MID -1E-3
R_R194			N886969 MID R_NOISELESS 1E3
C_C46			MID N886969  4.45E-13  
G_G84			VSENSE MID N886969 MID -1E-3
R_R190			VSENSE MID R_NOISELESS 1E3
R_R55			VSENSE N61579 R_NOISELESS 1E-3 
G_G15			CLAW_CLAMP MID VSENSE MID -1E-3
R_R65			CLAW_CLAMP MID R_NOISELESS 1E3
G_G16			CL_CLAMP MID CLAW_CLAMP MID -1E-3
********************************Output stage**********************************
GLOOP			SW1 MID CL_CLAMP OUTfb -90.91
R_R203			SW1 MID R_NOISELESS 1
*This resistor is implemented as the "off" resistance of the X_Overload switch.
*R_R1A			SW1 SW2 R_NOISELESS 10K
C_C1A27			SW1 SW2  1.447E-6
R_R2A23			SW2 MID R_NOISELESS 3.504E1
* Overload detect used to sense the current through the Miller clamps.  These no longer exist as they were
* a convergence problem.  Now overload detect is if the unclipped output is above VCC_CLIP or below VEE_CLIP.
* The amount that they need to be over or under by is "ThreshP" or "ThreshN", respectively, iff (VCC_CLIP -
* VEE_CLIP) > Vmin.  The detect is filtered for "Filter" time.
X_Overload		VCC_CLIP VEE_CLIP VOUTraw MID SW1 SW2 OverloadDetect_OPAx863 PARAMS:ThreshP=10mV ThreshN=10mV
+ Filter=50ns Vmin=4.5V
G_G91			N2014190 MID SW2 MID -2.815E2
R_R202			N2014190 MID R_NOISELESS 1
R_R201			N2014190 N2014210 R_NOISELESS 2.4E5
R_R7			N2014596 N2014210 R_NOISELESS 10E3
C_C1A28			MID N2014596  1.592E-13
G_G92			N2014228 MID N2014210 MID -1
R_R204			N2014228 MID R_NOISELESS 1
R_R1A15         N2014228 N2014238 R_NOISELESS 10K
C_C1A13         N2014228 N2014238  1.592E-13
R_R2A13         N2014238 MID R_NOISELESS 2E4
XBUF			VCC_CLIP VEE_CLIP VIMON N2014238 MID VOUTraw OUTfb LIM3_OPAx863A PARAMS:GAIN=1.5 Rx=200k Rdummy=20k
*R_RX1			OUTfb N2014512 R_NOISELESS 2E5
*R_RDUMMY1		OUTfb MID R_NOISELESS 2E4
XIout			OUTfb bondpad VIMON MID Imeas_OPAx863A PARAMS:Gain=1 Filter=1ns
*Models used
.MODEL R_NOISELESS RES(T_ABS=-273.15)
.ENDS OPAx863A
**************************
.subckt bondwire_OPAx863A 1 2 PARAMS:Resistance=10m Inductance=10nH
.param Fmax=100MEG
Rbondwire 1 series {Resistance}
Lbondwire series 2 {Inductance}
RLbondwire series 2 {6.3*Fmax*inductance}
.ends bondwire_OPAx863A
**************************
.SUBCKT CLAMP_AMP_OPAx863A VCplus VCminus VIN COM VOplus VOminus PARAMS:Gain=1
GVO+ COM VOplus VALUE = {IF(V(VIN,COM)>V(VCplus,COM),((V(VIN,COM)-V(VCplus,COM))*G),0)}
GVO- COM VOminus VALUE = {IF(V(VIN,COM)<V(VCminus,COM),((V(VCminus,COM)-V(VIN,COM))*G),0)}
.ENDS CLAMP_AMP_LO_OPAx863A
**************************
.SUBCKT CLAWN_OPAx863A VCplus VCminus IOUTplus IOUTminus
G1 IOUTplus IOUTminus TABLE {(V(VCplus,VCminus))}=
+									(0,1.139E-4)
+								   (30,4.466E-4)
+								   (38,5.623E-4)
+								   (40,6.057E-4)
.ENDS CLAWN_OPAx863A
**************************
.SUBCKT CLAWP_OPAx863A VCplus VCminus IOUTplus IOUTminus
G1 IOUTplus IOUTminus TABLE {(V(VCplus,VCminus))}=
+									(0,1.3E-4)
+									(4,1.598E-4)
+								   (20,3.185E-4)
+								   (30,4.705E-4)
+								   (38,6.66E-4)
+								   (40,7.696E-3)
.ENDS CLAWP_OPAx863A
**************************
.subckt ESD_BB_OPAx863A ESDn ESDp
S1 ESDn ESDp ESDn ESDp ESD_SW
S2 ESDp ESDn ESDp ESDn ESD_SW
*Models used
.model ESD_SW VSWITCH(RON=50 ROFF=1E12 VON=1 VOFF=0.9)
.ends ESD_BB_OPAx863A
**************************
.SUBCKT ESD_IN_OPAx863A ESDN ESDP VCC VEE
S1 VCC ESDN ESDN VCC ESD_SW
S2 VCC ESDP ESDP VCC ESD_SW
S3 ESDN VEE VEE ESDN ESD_SW
S4 ESDP VEE VEE ESDP ESD_SW
*Models used
.MODEL ESD_SW VSWITCH(RON=50 ROFF=1E12 VON=500E-3 VOFF=450E-3)
.ENDS ESD_IN_OPAx863A
**************************
.SUBCKT ESD_OUT_OPAx863A OUT VCC VEE
S1 VCC OUT OUT VCC ESD_SW
S2 OUT VEE VEE OUT ESD_SW
*Models used
.MODEL ESD_SW VSWITCH(RON=50 ROFF=1E12 VON=500E-3 VOFF=450E-3)
.ENDS ESD_OUT_OPAx863A
**************************
.SUBCKT FEMT_OPAx863A 1 2 PARAMS:FLWF=0.1 NLFF=24.67E3 NVRF=286.6
.PARAM GLFF={PWR(FLWF,0.25)*NLFF/1164}
.PARAM RNVF={1.184*PWR(NVRF,2)}
I1 0 7 10E-3
I2 0 8 10E-3
D1 7 0 DVNF
D2 8 0 DVNF
E1 3 6 Value={V(7,8)*{GLFF}}
R1 3 0 1E9
R2 3 0 1E9
R3 3 6 1E9
E2 6 4 5 0 10
R4 5 0 {RNVF}
R5 5 0 {RNVF}
R6 3 4 1E9
R7 4 0 1E9
G1 1 2 3 4 1E-6
*Models used
.MODEL DVNF D KF={PWR(FLWF,0.5)/1E11} IS=1.0E-16
.ENDS FEMT_OPAx863A
**************************
.SUBCKT IB_VS_VCM_OPAx863A Vplus Vminus REFplus REFminus
G1 Vplus Vminus TABLE {(V(REFplus,Vminus))} =
+							(-0.2,-525E-9)
+							(0.95,-525E-9)
+							 (1.5,0)
I1 Vplus Vminus 0
.ENDS IB_VS_VCM_OPAx863A
**************************
.subckt Imeas_OPAx863A SENSEplus SENSEminus VOUTplus VOUTminus PARAMS:Gain=1 Filter=1ns
RVIMON VIMONf VOUTplus {Filter/1pF}
CVIMON VOUTplus VOUTminus 1pF
Eiout VIMONf VOUTminus VALUE={I(Vsense)*Gain}
Vsense SENSEplus SENSEminus 0V
.ends Imeas_OPAx863A
**************************
.SUBCKT INOISE_N_OPAx863A ESDn MID
XINOISEN2 ESDn MID FEMT_OPAx863A PARAMS:FLWF=0.1 NLFF=24.67E3 NVRF=286.6
XINOISEN1 ESDn MID FEMT_OPAx863A PARAMS:FLWF=0.1 NLFF=3.47E4 NVRF=314
*R_R184 is NOT a noiseless resistor!
R_R184	GHB1 MID 1T
E_E8	GHB2 MID GHB1 MID 1.429k
R_RL14	GHB2 GHB3 R_NOISELESS 10k
C_C40	GHB2 GHB3 45.47pF
R_RL15	GHB3 MID R_NOISELESS 7.005
E_E9	GHB4 MID GHB3 MID 5
R_RL16	GHB4 GHB5 R_NOISELESS 10k
C_C41	GHB4 GHB5 0.1592pF
R_RL17	GHB5 MID R_NOISELESS 2.5k
G_G83	ESDN MID GHB5 MID 1E-10
*Models used
.MODEL R_NOISELESS RES(T_ABS=-273.15)
.ENDS INOISE_N_OPAx863A
**************************
.SUBCKT INOISE_P_OPAx863A NOISE_OUT MID PARAMS:FLWF=0.1 NLFF=24.67E3 NVRF=286.6
.PARAM GLFF={PWR(FLWF,0.25)*NLFF/1164}
.PARAM RNVF={1.184*PWR(NVRF,2)}
I1 0 7 10E-3
I2 0 8 10E-3
D1 7 0 DVNF
D2 8 0 DVNF
E1 3 6 Value={V(7,8)*{GLFF}}
R1 3 0 1E9
R2 3 0 1E9
R3 3 6 1E9
E2 6 4 5 0 10
R4 5 0 {RNVF}
R5 5 0 {RNVF}
R6 3 4 1E9
R7 4 0 1E9
G1 NOISE_OUT MID 3 4 1u
*R_R183 is NOT noiseless
R_R183	GHB1 MID 1T
E_E1	GHB2 MID GHB1 MID 1.429k
R_RL10	GHB2 GHB3 R_NOISELESS 10k
C_C38	GHB2 GHB3 45.47pF
R_RL11	GHB3 MID R_NOISELESS 7.005
E_E7	GHB4 MID GHB3 MID 5
R_RL12	GHB4 GHB5 R_NOISELESS 10k
C_C39	GHB4 GHB5 0.1592pF
R_RL13	GHB5 MID R_NOISELESS 2.5k
G_G82	NOISE_OUT MID GHB5 MID 1E-10
*Models used
.MODEL R_NOISELESS RES(T_ABS=-273.15)
.MODEL DVNF D KF={PWR(FLWF,0.5)/1E11} IS=1.0E-16
.ENDS INOISE_P_OPAx863A
**************************
.subckt IOS_OPAx863A IOUTplus IOUTminus
Ifixed 3 IOUTminus DC 1A
Rvariable 3 IOUTminus Rvtol 290E-9
Gout IOUTplus IOUTminus VALUE {V(IOUTminus,3)-290E-9}
*Models used
.model Rvtol RES(R=1 DEV/GAUSS=50%)
.ends IOS_OPAx863A
**************************
.subckt IQ_OPAx863 IOUTplus IOUTminus
Ifixed 3 IOUTminus DC 1A
Rvariable 3 IOUTminus Ritol 0.75m
Gout IOUTplus IOUTminus VALUE {V(IOUTminus,3)}
*Models used
.model Ritol RES(R=1 DEV/GAUSS 10% TC1=70u)
.ends IQ_OPAx863
**************************
.subckt ISup_OPAx863 VCplus VCminus IOUTplus IOUTminus PARAMS:GAIN=1E-3
G1 IOUTplus IOUTminus VALUE={IF((V(VCplus,VCminus)>=0),Gain*V(VCplus,VCminus),0)}
.ends ISup_OPAx863
**************************
.subckt LIM1_OPAx863A VCplus VCminus IOUTplus IOUTminus PARAMS:PairCurrent=1e-4 Vos=130mV
Gdiffpair IOUTplus IOUTminus Value={PairCurrent*TANH(V(VCplus,VCminus)/Vos)}
.ends LIM1_OPAx863A
**************************
.subckt LIM2_OPAx863A VC COM IOUTplus IOUTminus PARAMS:gm=28.642E-3 IPOS=0.97 INEG=-0.97
G1 IOUTplus IOUTminus VALUE={LIMIT(gm*V(VC,COM),INEG,IPOS)}
.ends LIM2_OPAx863A
**************************
.subckt LIM3_OPAx863A VMAX VMIN IOUT VIN COM VOUTraw VOUT PARAMS:Gain=1 Rx=34k Rdummy=3.4k
Ggain VRX COM Value={Gain*V(COM,VIN)}
Rgain VRX COM 1
RX VRX VOUTraw {Rx}
RDUMMY VOUTraw COM {Rdummy}
*Reflect the output load back to VOUTraw
Gzout VOUTraw COM Value={V(IOUT,COM)}
G_LIMIT COM	VOUT Value={LIMIT(V(VOUTraw,COM),V(VMIN,COM),V(VMAX,COM))}
RVOUT VOUT COM 1
.ends LIM3_OPAx863A
**************************
.subckt OverloadDetect_OPAx863A Vcc_clip Vee_clip Vout COM SW1 SW2 PARAMS:ThreshP=10mV ThreshN=10mV Filter=10ns
+ Vmin=4.5V
GSW+ COM SW+ VALUE={IF(V(Vcc_clip)-V(Vee_clip)<{Vmin},0,IF((V(Vout,Vcc_clip)>={ThreshP}|V(Vee_clip,Vout)>={ThreshN})
+ ,1,0))}
RGSW+ SW+ COM 1
Rfilter SW+ SW+f {Filter/100pF}
Cfilter SW+f COM 100pF
Rnofloat SW+f COM 10MEG
S1 SW1 SW2 SW+f COM OverloadSwitch
*Models used
.MODEL OverloadSwitch VSWITCH(RON=1m ROFF=10k VON=0.9V VOFF=0.8V)
.ends OverloadDetect_OPAx863A
**************************
.SUBCKT VCM_CLAMP_OPAx863A VINplus VINminus IOUTminus IOUTplus VPplus VPminus
.PARAM GAIN = 1
G1 IOUTplus IOUTminus VALUE={LIMIT(GAIN*V(VINplus,VINminus),V(VPminus,VINminus), V(VPplus,VINminus))}
.ENDS VCM_CLAMP_OPAx863A
**************************
.subckt VCM_N_OPAx863A VOUTplus VOUTminus
Ifixed 3 VOUTminus DC 1A
Rvariable 3 VOUTminus RvtolCM -0.2
Eout VOUTplus VOUTminus VALUE {V(3,VOUTminus)}  
*Models used
.model RvtolCM RES(R=1 DEV/GAUSS 3% LOT/GAUSS 5%)
.ends VCM_N_OPAx863A
**************************
.subckt VCM_P_OPAx863A VOUTplus VOUTminus
Ifixed 3 VOUTminus DC 1A
Rvariable 3 VOUTminus RvtolCM 0.2
Eout VOUTplus VOUTminus VALUE {V(3,VOUTminus)}  
*Models used
.model RvtolCM RES(R=1 DEV/GAUSS 3% LOT/GAUSS 5%)
.ends VCM_P_OPAx863A
**************************
.SUBCKT VNOISE_OPAx863A 1 2 NOISE_OUT MID PARAMS:FLW=1 NLF=42.18 NVR=4.3
.PARAM GLF={PWR(FLW,0.25)*NLF/1164}
.PARAM RNV={1.184*PWR(NVR,2)}
I1 0 7 10E-3
I2 0 8 10E-3
D1 7 0 DVN
D2 8 0 DVN
E1 3 6 Value={V(7,8)*{GLF}}
R1 3 0 1E9
R2 3 0 1E9
R3 3 6 1E9
E2 6 4 5 0 10
R4 5 0 {RNV}
R5 5 0 {RNV}
R6 3 4 1E9
R7 4 0 1E9
E3 1 2 3 4 1
*R_R182 is NOT a noiseless resistor!
R_R182	GHB1 MID 1T
G_G78	GHB2 MID GHB1 MID -1.75E-4
R_RL1	GHB2 MID R_NOISELESS 1
R_RL3	GHB2 GHB3 R_NOISELESS 10k
C_C36	GHB2 GHB3 0.7958pF
R_RL4	GHB3 MID R_NOISELESS 7.407k
G_G81	GHB4 MID GHB3 MID -1
R_RL6	GHB4 MID R_NOISELESS 1
R_RL7	GHB4 GHB5 R_NOISELESS 10k
C_C37	GHB4 GHB5 0.7958pF
R_RL8	GHB5 MID R_NOISELESS 7.407k
E_E10	NOISE_OUT 2 GHB5 MID 1
*Models used
.MODEL DVN D KF={PWR(FLW,0.5)/1E11} IS=1.0E-16
.ENDS VNOISE_OPAx863A
**************************
.subckt VOS_DRIFT_OPAx863A VOSplus VOSminus
Ifixed 3 VOSminus DC 1A
Rvariable 3 VOSminus Rvtol 30u
Eout VOSplus VOSminus VALUE {V(VOSminus,3)+30uV}  
*Models used
.model Rvtol RES(R=1 DEV/GAUSS=50% TC1=1u)
.ends VOS_DRIFT_OPAx863A
**************************
.subckt VSC_N_OPAx863A VOUTplus VOUTminus
Ifixed 3 VOUTminus DC 1A
Rvariable 3 VOUTminus RvtolSC 0.1175
Eout VOUTplus VOUTminus VALUE {V(3,VOUTminus)}  
*Models used
.model RvtolSC RES(R=1 DEV/GAUSS 5% LOT/GAUSS 25% TC1=3.33e-3 TC2=1.09E-6)
.ends VSC_N_OPAx863A
**************************
.subckt VSC_P_OPAx863A VOUTplus VOUTminus
Ifixed 3 VOUTminus DC 1A
Rvariable 3 VOUTminus RvtolSC -0.1208
Eout VOUTplus VOUTminus VALUE {V(VOUTminus,3)}  
*Models used
.model RvtolSC RES(R=1 DEV/GAUSS 5% LOT/GAUSS 25% TC1=3.22e-3 TC2=2.54E-6)
.ends VSC_P_OPAx863A
*****************************************************************************